home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / procmgmt.arc / JOBS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-11-27  |  4.3 KB  |  98 lines
  1. 10  ' ********************************************************************
  2. 20  ' * Program: JOBS.BAS                     Programmer: Kyle Cummings  *
  3. 30  ' * Date: 04-12-85                                                   *
  4. 40  ' * Installation: Joppa Facilities                                   *
  5. 50  ' * Purpose: To have an active advertisement for the CummingsWare    *
  6. 60  ' *          product, "Job Search".                                  *
  7. 70  ' ********************************************************************
  8. 80  CLS:KEY OFF
  9. 90  ' ***** Main logo screen *****
  10. 100  LOCATE 4,1
  11. 110  PRINT "    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  12. 120  PRINT "  <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  13. 130  PRINT "<0xDF!><0xDF!><0xDF!><0xDF!>"
  14. 140  PRINT "<0xDF!><0xDF!><0xDF!><0xDF!>"
  15. 150  PRINT "<0xDF!><0xDF!><0xDF!><0xDF!>"
  16. 160  PRINT "  <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>  UMMINGS"
  17. 170  PRINT "    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  18. 180  PRINT
  19. 190  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>"
  20. 200  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>"
  21. 210  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>"
  22. 220  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!>"
  23. 230  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  24. 240  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>  ARE"
  25. 250  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>"
  26. 260  PRINT:PRINT
  27. 270  WA$="PRESENTS:":KC=1
  28. 280  FOR I=79 TO 35 STEP -1
  29. 290  LOCATE ,I:PRINT MID$(WA$,1,KC);
  30. 300  IF I<71 THEN LOCATE ,I+LEN(WA$):PRINT " ";
  31. 310  KC=KC+1:IF KC>=LEN(WA$) THEN KC=LEN(WA$)
  32. 320  NEXT I
  33. 330  PLAY "T200O3MFE4D8C4C8C4D8E4E8E8D8C8D8E8D8C4O2B8O3MLC2C8MN"
  34. 340  ' ***** Intro Menu part 2 *****
  35. 350  CLS
  36. 360  PRINT "                   <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  37. 370  PRINT "                     <0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  38. 380  PRINT "                     <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  39. 390  PRINT "                     <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  40. 400  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>      <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  41. 410  PRINT "             <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!>  <0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  42. 420  PRINT "               <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>            <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>        <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  43. 430  PRINT:PRINT:PRINT
  44. 440  PRINT "                    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  45. 450  PRINT "                  <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  46. 460  PRINT "                  <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  47. 470  PRINT "                    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  48. 480  PRINT "                        <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  49. 490  PRINT "                  <0xDF!><0xDF!><0xDF!><0xDF!>    <0xDF!><0xDF!><0xDF!><0xDF!>"
  50. 500  PRINT "                    <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  51. 510  WA$="EARCH"
  52. 520  KC=1
  53. 530  FOR I=23 TO 15 STEP -1
  54. 540  LOCATE I,32+KC:PRINT MID$(WA$,KC,1);
  55. 550  LOCATE I+1,32+KC:PRINT " ";
  56. 560  FOR JKC=1 TO 50:NEXT JKC
  57. 570  NEXT I
  58. 580  KC=KC+1
  59. 590  IF KC>LEN(WA$) THEN GOTO 610
  60. 600  GOTO 530
  61. 610  PLAY "T200O3MFD8E4E8E4F8G4G8G4G8G4D8D4E8MLD2D8MN"
  62. 620  ' ***** Give the main info *****
  63. 630  CLS
  64. 640  LOCATE ,10:PRINT "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  65. 650  LOCATE ,10:PRINT "OPEN     ->FIND YOURSELF A JOB IN THE HARD TIMES AHEAD!!<-     OPEN"
  66. 660  LOCATE ,10:PRINT "OPEN               FIND YOUR CHILD A SUMMER JOB                OPEN"
  67. 670  LOCATE ,10:PRINT "OPEN            OR FIND YOUR SPOUSE A PART TIME JOB !          OPEN"
  68. 680  LOCATE ,10:PRINT "OPEN          FOR SALE: 5 1/4";CHR$(34);" FLOPPY WITH SEVEN FILES:        OPEN"
  69. 690  LOCATE ,10:PRINT "OPEN  (1) dBASE II FILE OF 3,300 BUSINESSES IN THE U.S.A. WITH OPEN"
  70. 700  LOCATE ,10:PRINT "OPEN      CONTACT NAME, COMPANY, ADDRESS, STATE, ZIP CODE      OPEN"
  71. 710  LOCATE ,10:PRINT "OPEN  (2) COMMAND FILE TO USE CONTINUOUS FORM ENVELOPES &      OPEN"
  72. 720  LOCATE ,10:PRINT "OPEN      dBASE FILE.                                          OPEN"
  73. 730  LOCATE ,10:PRINT "OPEN  (3) COMPLETE INSTRUCTIONS ON JOB SEARCH METHODS.         OPEN"
  74. 740  LOCATE ,10:PRINT "OPEN  (4) CAREER UNEMPLOYMENT CALCULATOR.                      OPEN"
  75. 750  LOCATE ,10:PRINT "OPEN  (5) HOME VALUE CALCULATOR.                               OPEN"
  76. 760  LOCATE ,10:PRINT "OPEN  (6) HOME MORTGAGE CALCULATOR.                            OPEN"
  77. 770  LOCATE ,10:PRINT "OPEN  (7) PERMUTATION GENERATOR.                               OPEN"
  78. 780  LOCATE ,10:PRINT "OPEN     DISK FORMAT FOR IBM-PC. AVAILABLE FOR $7.00 FROM:     OPEN"
  79. 790  LOCATE ,10:PRINT "OPEN                 ====== CUMMINGSWARE ======                OPEN"
  80. 800  LOCATE ,10:PRINT "OPEN                       200 KANE COURT                      OPEN"
  81. 810  LOCATE ,10:PRINT "OPEN                      JOPPA, MD. 21085                     OPEN"
  82. 820  LOCATE ,10:PRINT "SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  83. 830  PRINT "Files include: Tips on resume writing, job interviews and uses the computer"
  84. 840  PRINT "               to select companies in a geographical area for automatic"
  85. 850  PRINT "               envelope addressing. Forecasts career unemployment.Calculates"
  86. 860  PRINT "               current value of your home,down payment,and mortgage."
  87. 870  PLAY "T200O3MFG8A4F8A4F8A8O4MLC4C8MNO3B8A8G4E8G4E8G2"
  88. 880  PLAY "T200O3MFE4D8C4C8C4D8E4E8E8D8C8D8E8D8C4O2B8O3MLC2C8MN"
  89. 890  WA$="====== CUMMINGSWARE ======"
  90. 900  LOCATE 25,31:PRINT "Press ENTER to exit";
  91. 910  INKC$=INKEY$:IF INKC$="" THEN GOTO 930
  92. 920  IF INKC$=CHR$(13) THEN GOTO 970
  93. 930  FOR JKC=1 TO 70:NEXT JKC
  94. 940  LOCATE 16,28:PRINT WA$;
  95. 950  WA$=MID$(WA$,2,LEN(WA$))+LEFT$(WA$,1)
  96. 960  GOTO 910
  97. 970  CLS:SYSTEM
  98.